home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 August / 1986-08.d64 / turbodisk rel (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  645b  |  18 lines
  1. 100 print"[147]           turbodisk relocator[146]":open15,8,15
  2. 110 open2,8,4,"turbodisk 64,p,r":gosub160
  3. 120 get#2,a$,a$
  4. 130 input"new boot name";pn$:open1,8,3,pn$+",p,w":gosub160
  5. 140 input"new address for turbodisk";ad:sp=int(ad/256)
  6. 150 print#1,chr$(0);chr$(sp);:gosub180:gosub190:close1:close2:end
  7. 160 input#15,e,e$,t,s:ife=0thenreturn
  8. 170 printe,e$:close1:close2:stop
  9. 180 dim po(24),vo(24):readn:forx=1ton:readpo(x),vo(x):nextx:return
  10. 190 n=1:n$=chr$(0):print"target[146] = 956":forx=0to956
  11. 200 print""x:get#2,a$:a=asc(a$+n$)
  12. 210 ifx=po(n)then a=sp+vo(n):print#1,chr$(a);:n=n+1:goto230
  13. 220 print#1,chr$(a);
  14. 230 nextx:return
  15. 240 data 23,17,0,33,0,104,3,112,3,140,2,167,0,170,0,175,0,258,1,261,4
  16. 250 data 274,4,277,4,286,4,291,1,294,1,297,4,304,1,314,4,321,4,326,4
  17. 260 data 332,1,361,4,431,4
  18.